function [Img] = DrawCircle(R,c1,c2,x,y,lineWidth);
Img = zeros(x,y);
theta = [0 : 0.01 : 2 * pi];
stack1 = 0;
if nargin == 5
    
    lineWidth = 1;
end
for i = 1 : length( theta )

        temp_x = 0; temp_y = 0;   
             
        temp_x =ceil( R* cos (theta(i)) + c1);
        
        temp_y = ceil (R* sin (theta(i)) + c2);
        stack1 = stack1 + 1;
        I_new(stack1) = temp_x ;
        J_new(stack1) = temp_y  ;
        Img( temp_x , temp_y ) = 1;
       
        %plot(I_new,J_new,'.',c1,c2,'r*')
end

se1 = strel('line',lineWidth,0);
se2 = strel('line',lineWidth,90);
Img = imdilate(Img,[se1 se2],'same');
